home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boostrs.arc
/
UPPER.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
724b
|
29 lines
{ ------------------------------------------------
UPPER function converts alphabetics to uppercase
------------------------------------------------ }
Function UPPER ( S : AnyString) : AnyString;
begin
InLine ( $1E/
$8A/$4E/$04/
$30/$ED/
$8D/$76/$05/
$8D/$BE/$04/$01/
$36/$88/$0D/
$80/$F9/$00/
$76/$18/
$47/
$8C/$D0/
$8E/$D8/
$8E/$C0/
$FC/
$8A/$04/
$3C/$61/
$72/$06/
$3C/$7A/
$77/$02/
$2C/$20/
$AA/
$46/
$E2/$F0/
$1F);
end;